Delphi

DimSher · Отправлено: **11:19, 17-10-2002** | #2

Дык в Status bar есть такое свойство Simple text туда и пиши

vasketsov · Отправлено: **11:20, 17-10-2002** | #3

Отображать в статусбаре, или координаты в статусбаре?

Roman Go · Отправлено: **14:20, 17-10-2002** | #4

Цитата:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
statusbar1.SimpleText:='x='+inttostr(x)+'; y='+inttostr(y);
end;

Я вот так вот сделал, не знал, как получить координаты мыши... и еще там надо было в OI где-то true поставить, где потерял, точно не скажу... теперь у меня другой вопрос возник: как работать с двумя формами, но чтобы при этом был только один модуль, меня раздражает писать код в разны модулях... да и переменные которые я хочу использовать в одном модуле, находятся в разных и приходится дублировать расчеты...

vasketsov · Отправлено: **15:30, 17-10-2002** | #5

Roman Go

Цитата:

да и переменные которые я хочу использовать в одном модуле, находятся в разных

вынести в 3-й и его заюзать из обоих.
а можешь и 2 разных модуля циклически заюзать, только в одном это надо в interface, в а другом в implementation писать.

А 2 формы запросто можно в одном модуле иметь, только создавать их руками придется, хранить их Delphi фвтоматом не будет. Потому что совершенно нет в этом необходимости, и без этого решается.

Roman Go · Отправлено: **14:59, 21-10-2002** | #6

Цитата:

3-й и его заюзать из обоих

решил так сделать, а вот ООП - это слабо... по этому случаю еще вопрос: как можно сделать, чтобы одна из моих форм всегда находилась поверх другой (я ее вроде как управляющей хочу сделать)?

vasketsov · Отправлено: **16:59, 21-10-2002** | #7

Roman Go
Перекрыть метод CreateParams у дочерней TForm и в этом методе устанавливать ей ParentHandle-ом хэндл родительской формы.

Roman Go · Отправлено: **04:40, 22-10-2002** | #8

vasketsov я не могу понять ни одного твоего ответа, расписывая пожалуйста поподробнее, сейчас подйду посмотрю, где там у Delphi есть CreateParams, ParentHandle, и вообще, что такое хэндл...

vasketsov · Отправлено: **13:15, 22-10-2002** | #9

Roman Go
Пусть есть TForm1 = class(TForm) и TForm2 = class(TForm) и Form2 должна быть на Form1.

Form1 создается как обычно, естественно, ДО Form2.

В TForm2 пишешь такие вещи:

Код:

procedure TForm2.CreateParams (var Params: TCreateParams);override;
begin
  inherited;
  Params.WndParent:=Form1.Handle;
end;

Roman Go · Отправлено: **15:08, 23-10-2002** | #10

Мне вот как раз это и нужно

Цитата:

Пусть есть TForm1 = class(TForm) и TForm2 = class(TForm) и Form2 должна быть на Form1.

vasketsov
Что-то я такого в OI-events не нашел, а когда просто копирую то не работает, всякие разные гадости пишет, я таких даже еще не видел (Delphi5).

Я по-моемому заставил нужную форму находится поверх другой вот таким вот образом: я в событии "движение мышкой" над второстепенной формой указал "передавать фокус главной форме" вроде получается что одна форма всегда остается снизу, а та которая должна быть сверху всегда сверху... потом еще проверю, если будет работать, выложу код, если есть мнения на счет такого метода решения, то высказывайте пожалуйста, насколько он рационален...