Lazarus : Kumpulan skrip sederhana ~ InfoGue.xyz

Memasukkan hanya angka saja di textbox

isikan kode berikut pada object textbox di event onKeypress
if not (Key in ['0'..'9', #8, #9]) then Key := #0;

Message box sederhana

Skrip berikut ini untuk menampilkan message box (kotak peringatan) sederhana di lazarus
uses LCLType;
messagebox('isi pesan','Judul',BoxStyle);
application.messagebox('isi pesan','Judul',MB_ICONERROR);

Notifikasi saat menutup form

Tempatkan kode berikut pada event form onClose:
if MessageDlg ('Apakah anda yakin ingin keluar?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
application.Terminate
else
CloseAction:=caNone;

Memanggil form lain dalam satu project

if not Assigned(frmLokasi) then application.CreateForm(TfrmLokasi,frmLokasi);
frmLokasi.Show;

Format tanggal hari ini dalam string

FormatDateTime('YYYY-MM-DD hh:mm:ss',now);

Menampilkan laporan Lazreport

frreport1.LoadFromFile('xx.lrf');
frreport1.ShowReport;

Baca juga cara mengosongkan obyek di Lazarus secara cepat

Memindahkan halaman (page) pada pagecontrol

pagecontrol1.TabIndex:=1;

Fokus pada even On Enter

if Key=Word(13) then edit2.SetFocus;

Menghentikan eksekusi script

if fBreaking then Exit;

Mengisi statusbar dengan string

statusbar1.Panels[0].Text:='textHere'

Mewarnai cell di dbgrid

//on PrepareCanvas
if RightStr(qJadwal.FieldByName('Tanggal').AsString,6)='Minggu' then
    begin
      with (Sender As TDBGrid) do
      begin
        Canvas.Brush.Color:=clYellow;
        Canvas.Font.Color:=clRed;
        Canvas.Font.Style:=[fsBold];
      end;
    end;

Mengurutkan data di dbgrid menggunakan koneksi zeos

procedure TfrmMRS.DBGrid1TitleClick(Column: TColumn);
var st:ZAbstractRODataset.TSortType;
begin
st:=qMRS.SortType;
qMRS.SortedFields:=Column.FieldName;
If st = stAscending then qMRS.SortType:=stDescending else qMRS.SortType:=stAscending;
dMRS.DataSet.First;
end;