VPF::Узнать позицию контрола относительно формы

lukas

Дата 13.11.2009, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Друзья, подскажите как можно узнать left и top контрола относительно формы на которой он находится (owner например если использовать), а не его парента.

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

amsoft

Дата 13.11.2009, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4

может извращенный метод, но рабочий smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
MyControl: TControl;
X: integer;
begin
X := 0;
MyControl := (Sender as TControl);
while MyControl.Parent <> nil do
      begin
      X := X + MyControl.Left;
      MyControl := MyControl.Parent;
      end;
ShowMessage('Координата X ' + IntToStr(X));
end;

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

lukas

Дата 13.11.2009, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Написал вот такую функцию

Код


function getAbsoluteX(cntrl: TControl; LastControl: TControl): Integer;
begin

Result := cntrl.Left;

if integer(cntrl.Parent) <> integer(LastControl) then
  Result := Result + getAbsoluteX(cntrl.Parent,LastControl);
end;

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Frees

Дата 13.11.2009, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

ClientToScreen и ScreenToClient вам в помощь

--------------------

Кольцов Виктор Владимирович

lukas

Дата 13.11.2009, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Цитата(Frees @ 13.11.2009, 14:46

)

ClientToScreen и ScreenToClient вам в помощь

Мне надо относительно формы, а не всего экрана.

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Frees

Дата 13.11.2009, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

еще есть
ClientToParent

Цитата(lukas @ 13.11.2009, 17:56

)

Мне надо относительно формы, а не всего экрана.

дак ты сперва в экран от парента а потом позицию экрана в позицию формы

Код


form1.screentoclient(panel1.clietntoscreen(<координаты на панели>))

Добавлено @ 15:02
правда они работаю внутри как написал amsoft, зато нет "велосипедов"...

Это сообщение отредактировал(а) Frees - 13.11.2009, 15:03

--------------------

Кольцов Виктор Владимирович

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »