التنفيذ الغير مباشر للاجراءات و الدوال في دلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
التنفيذ الغير مباشر للاجراءات و الدوال في دلفي
التنفيذ الغير مباشر للاجراءات و الدوال في دلفي
-
ملاحظة : من يرى غير ذلك يعلمني
- الكود:
const
CM_LOADFILETEXT = WM_USER + $1000;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Memo1: TMemo;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
private
procedure LoadLocation;
procedure LoadFileText(var message: tmessage); message CM_LOADFILETEXT;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.LoadFileText(var message: tmessage);
begin
ComboBox1.Text := 'Message1.txt';
LoadLocation;
end;
procedure TForm1.LoadLocation;
begin
Memo1.Lines.LoadFromFile(WideString(ComboBox1.Text));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(Handle, CM_LOADFILETEXT, 0, 0);
end;
djelal- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
مواضيع مماثلة
» كتاب في دلفي غاية في روعة ويعتب مرجع في لغة البرمجة دلفي
» كيف تثبت برامجك عند الغير
» مثال دلفي حول القوائم
» قنوات في دلفي
» دلفي مـتقدم
» كيف تثبت برامجك عند الغير
» مثال دلفي حول القوائم
» قنوات في دلفي
» دلفي مـتقدم
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى