Архив форумов ЦИТФорума

[Игорь Путин]

SRC="http://www.uucyc.net/phpBB/images/avatars/gallery/cross/cros345.gif" BORDER=0 VSPACE=4 HSPACE=6>
Vot, sozdaiu new application i v nei, novaia forma (var form1 : TForm), ea otbiraiu u formi border i Title Bar, forma budet tiperi prostim kvadratom, bez Close button, Minimize button... Kak zdelati formu podvijnoi (dragable), dlea tovo citobi mojno bilo peredvigati formu c liuboi eeo tociki (point).
.igor

[Anatoliy]

Вставь этот код в событие формы. OnMouseDown
long SC_DRAGMOVE = 0xF012;
if(Button == mbLeft)
{ ReleaseCapture();
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); }

[Путин Игорь]

Ничего не получилась у меня, и вообще то что ты написал мне (код) он не очень то ясен, и даже мой Делфи его не понемает. ты прав, мне нужно перемещать форму из одной точки в другой исползуя drag мышью. Знаешь как у програмок типа WINAMP, CDplayer из Windows 2000. Для того чтобы перемещать плеер, тебе лишь нужно нажать и держать на него и притащить в другое место. если можите напишите мне все:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
???????????????????
???????????????????
??????????.. благодорю!

[Anatoliy]

>>Ничего не получилась у меня, и вообще то что ты написал мне (код) он не очень то ясен, и даже мой Делфи его не понемает. ты прав, мне нужно перемещать форму из одной точки в другой исползуя drag мышью. Знаешь как у програмок типа WINAMP, CDplayer из Windows 2000. Для того чтобы перемещать плеер, тебе лишь нужно нажать и держать на него и притащить в другое место. если можите напишите мне все:
>>
>>procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
>> Shift: TShiftState; X, Y: Integer);
>>begin
>>???????????????????
>>???????.. благодорю!