16-01-2010, 10:52 PM
السلام عليكم
شيء إخر، بالنسبة لي لم إعد أستعمل النوافذ في حالة show دائما showmodal
مثلا
لفتح النافذة يكفي النداء على الدالة ShowCahier
كود :
if adodataset1.locate('yousername;password',VarArrayOf([edit3.Text,edit4.text]),[]) thenمثلا
كود :
unit xxx;
interface
type
TFCahier = class(TForm)
.....
end;
Procedure ShowCahier(f:integer=0);
implementation
Procedure ShowCahier;
begin
with TFCahier.Create(Application) do
try
ShowModal;
finally
Release;
end;
end;