Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Прилипание формы   Найти похожие ветки 

 
Gabi100   (2002-01-23 10:48) [0]

Как обеспечить "прилипание формы" т.е. чтобы при перетаскивании одной формы другая перемещалась вслед за ней?


 
Rem   (2002-01-23 11:09) [1]

В таком ключе:

TForm1 = class(TForm)
...
P: TPoint;
end;

procedure TForm1.FormMouseMove();
var
dX, dY: integer;
i: integer;
begin
if (ssLeft in Shift) then
begin
dX := X - P.X;
dY := Y - P.Y;
for i := 0 to Screen.FormCount - 1 do
with Screen.Forms[i] do
begin
Left := Left + dX;
Top := Top + dY;
end;
end;
end;

procedure TForm1.FormMouseDown();
begin
if (ssLeft in Shift) then
P := Point(X, Y);
end;


 
Digitman   (2002-01-23 11:58) [2]

используй св-ва/методы/события класса TWinControl, относящиеся к встроенной технологии Drag-and-Dock.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.005 c
7-19008
Poroh
2001-10-24 02:57
2002.02.07
Подскажите, пожалуйста, как перехватить сообщение о том, что программа выполнила недопустимую операцию и будет закрыта.


6-18925
Leha2000
2001-11-13 10:43
2002.02.07
Проблемы при продолжительном подключении клиента к серверу


14-18966
Orest
2001-12-18 19:55
2002.02.07
Socrat(переводчик) ну помогите мне найти его!!!


14-18972
Дремучий
2001-12-18 23:38
2002.02.07
boom.ru !!! boom-boom!


6-18946
ReY
2001-11-13 11:17
2002.02.07
Как программно расшарить диск.... и обратно.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский