15 Juni 2009

Mengungkap Kegunaan Method CreateParams (Bagian 4)

Selain parameter Style, ada satu lagi parameter yang juga berguna, ExStyle. Kegunaan parameter ini dapat kita lihat pada form yang kita buat.

Membuat Button Tersendiri pada Taskbar Untuk Tiap Form
Jika kita pernah membuat aplikasi pada lingkungan .NET Framework, tiap form yang dibuat pada satu aplikasi akan menambahkan satu button ke taskbar. Ini merupakan default behaviour pada aplikasi .NET. Jika pada Delphi hanya terdapat satu button tidak peduli berapa form yang ada. Kita bisa melakukan ini dengan mengubah flag WS_EX_APPWINDOW pada parameter ExStyle.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;


Form Transparan
Untuk mengubah form menjadi transaparan, gunakan flag WS_EX_TRANSPARENT, seperti pada contoh ini.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WX_EX_TRANSPARENT;
end;






Form Model MDI
Pada form yang properti FormStyle diset fsMDIForm, border form tersebut akan terlihat menonjol. Pada form yang biasa dapat juga dibuat seperti itu dengan set flag WS_EX_OVERLAPPEDWINDOW.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_OVERLAPPEDWINDOW;
end;










ScrollBar di Sebelah Kiri Form
Biasanya kita menggunakan scrollbar pada sebelah kanan form. Tapi pada kasus tertentu mungkin beberapa orang lebih memilih scrollbar pada sebelah kiri seperti bahasa Arab yang dibaca dari kanan ke kiri. Untuk keperluan ini flag yang dipakai adalah WS_EX_LEFTSCROLLBAR.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or
WS_EX_LEFTSCROLLBAR;
end;











Form Stay On Top
Pada sebuah form ada properti FormStyle, dimana jika dengan nilai fsStayOnTop maka form tersebut akan selalu diatas form lain, meski fokus tidak pada form tersebut. Tapi jika kita fokus ke aplikasi lain, form tersebut tidak lagi stay on top. Supaya form tersebut dapat diatas form lain pada aplikasi lain kita set flag WS_EX_TOPMOST.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
end;


Kesimpulan
Dengan memainkan parameter Style dan ExStyle pada method CreateParams, banyak macam kegunaan yang dapat kita dapat yang dapat membentuk form dengan berbagai gaya yang kita inginkan. Selain parameter diatas, masih banyak lagi konstanta yang ada untuk bermacam kegunaan yang lain.

Tidak ada komentar:

Posting Komentar