:roll: Frenz.... Gimana ya caranya jika saat onshow mau jalanin proses panjang, udah ane coba tapi yang terjadi malah formnya muncul setelah proses selesai. Ini procedure testnya... procedure TForm1.FormShow(Sender: TObject); var i:integer; begin label1.Caption:='Test '; for i := 1 to 20000 do begin label1.Caption:=label1.Caption+'.'+IntToStr(i); end; end;

cobain pake StaticText jadinya di TabSheetnya Additional atawa ngebuat thread sendiri klo tetep pke Tlabel procedure TForm1.FormShow(Sender: TObject); var i:integer; begin StaticText1.Caption:='Test '; for i := 1 to 20000 do begin StaticText1.Caption:=StaticText1.Caption+'.'+IntToStr(i); end; end;

oia sorry bleum kasi tau, klo pke StaticText loopingnya keliatan tapi Form tetep kaku. aku saranin buat thread az

Coba tambahkan command Application.ProcessMessage dan Sleep di bawah label1.Caption procedure TForm1.FormShow(Sender: TObject); var i:integer; begin label1.Caption:='Test '; for i := 1 to 20000 do begin label1.Caption:=label1.Caption+'.'+IntToStr(i); Application.ProcessMessage; Sleep(500) end; end;

coba kalo prosesnya kamu jalanin di formcreate nya dan hasil prosesnya disimpan di variabel, baru nanti hasilnya kamu tampilkan di formshow, contoh : form1.formcreate(sender:TObject); var i : integer; begin scaption := ''; //variabel global; for i := 1 to 20000 do scaption := scaption + IntToStr(i); end; procedure TForm1.FormShow(Sender: TObject); begin label1.Caption:= scaption'; end; kira2 gmn ya?????