Jumat, 16 Januari 2009

Tips dan Trick Delphi
Okeh Langsung aja Tanpa basa-basi Saya Mau Bagi2 Sedikit Ilmu Tentang Delphi yg sya Rampok dari berbagai Sumber yang mungkin bisa dijadikan pembelajran untuk para NewBie yg mungkin Nyasar ke Blog ini... nich sdikit Tips&Trick nya:

BIKIN FOLDER
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + 'Udah dibikin';
END;

DAPETIN CURRENT DRIVE
Procedure TForm1.Button1.Click(Sender: TObject);
var
s : string;
begin
GetDir(0,s); { 0 = Current drive }
MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0);
end;

Membuat 2 Baris Tulisan pada component Button
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
i:=GetWindowLong(Button1.Handle,GWL_STYLE);
SetWindowLong(Button1.Handle,GWL_STYLE,i or BS_MULTILINE);
Button1.Caption:='Aday Ganteng'+#13#10+'Aink atuh!!';
end;

Mendisable Tombol pada Title
procedure TForm1.FormCreate(Sender: TObject);
var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);
if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle,SC_CLOSE, MF_BYCOMMAND);
end;

Memanggil Applikasi Window lain
Procedure TForm1.Button1.Click(Sender: TObject);
Begin
If (WinExec ('C:\Windows\notepad.exe',
SW_SWOWMAXIMIZED) &lt; 32) then
MessageDlg ('Gagal menjalankan Notepad',
mtError, [mbOK],0);
end;
{ContohMemanggil Notepad.exe}

Membuat dua Baris “Hint”
dah pada tau “Hint” belooo0m??itu lho tulisan yg muncul klo Qt dketin ama suatu component...klo Cuma dibikin di Property nya aja Cuma satu baris,,gmn klo bkin 2 baris???bgini nich: Taro diProcedure apa aja...Contoh:Hint sebuah Button;

Procedure TForm1.Button1.Click(Sender: TObject);
Begin
Button1.Hint:=’klo yang biasa Cuma bisa satu baris.. ’ +#13#10 +
’Tapi yang ini 2 baris kan??’;
End;

Okeh sgitu aja dulu..kapan2 sya lanjutin di Tips n` Trik ke 2..

0 comments:

Posting Komentar

Katakan Sesuatu