Kamis, 18 September 2008

MENGETENGAHKAN FORM DI DELPHI

Mungkin anda pernah membuat program Delphi namun formnya tidak berada ditengah-tengah layar computer anda. Jika anda menginginkan hal tersebut maka anda dapat melakukan hal sebagai berikut :
Pada event form.create anda memasukkan code berikut :

procedure TForm1.FormCreate(Sender: TObject);
var
NewRect: Trect;
begin
{See SystemParametersInfo in the Win32.hlp file for other options}

SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);

Top := NewRect.Top;
Left := NewRect.Left;
Height := NewRect.Bottom - NewRect.Top + 1;
Width := NewRect.Right - NewRect.Left + 1;
end;

Tidak ada komentar: