+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل من vcl الى الفايرمونكي (/showthread.php?tid=10249)
تحويل من vcl الى الفايرمونكي - invocker - 15-06-2019
السلام عليكم
كنت قد طرحت السؤال هنا لكن لم اجده للاسف المهم اريد تحويل هذا المشروع بعد اذنكم الى الفايرمونكي
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
item: TListItem;
begin
item := ListView1.Items.Add;
item.Caption := 'Mohamed';
item.SubItems.Add('Akram');
item.SubItems.Add('055002011');
item.ImageIndex := 0;
end;
procedure TForm1.CaptionclickClick(Sender: TObject);
begin
Memo1.Lines.Add('caption : ' + ListView1.Items[ListView1.Selected.
Index].Caption);
end;
procedure TForm1.FirstitemclickClick(Sender: TObject);
begin
Memo1.Lines.Add('First sub item : ' + ListView1.Items[ListView1.Selected.
Index].SubItems[0]);
end;
procedure TForm1.SeconditemclickClick(Sender: TObject);
begin
Memo1.Lines.Add('Second sub item : ' + ListView1.Items[ListView1.Selected.
Index].SubItems[1]);
end;![[صورة: p_1260py56w1.jpg]](https://6.top4top.net/p_1260py56w1.jpg)
RE: تحويل من vcl الى الفايرمونكي - invocker - 20-06-2019
هل يوجد شرح لكيفية التعامل مع اللست فيو في الفايرمونكي ارسال قيم وجلب قيم مثل vcl
RE: تحويل من vcl الى الفايرمونكي - أبو معاذ - 20-06-2019
وعليكم السلام ورحمة الله وبركاته ،
أنا لم أتعامل مع الفايرموكي من قبل ،
لكن من باب الدلالة على الخير :
How To Use ListBoxes And ListView Controls In Firemonkey On Android, IOS, Windows, And OSX
وأيضا :
https://www.youtube.com/watch?v=yVwYZ05N7Sg
RE: تحويل من vcl الى الفايرمونكي - invocker - 20-06-2019
بارك الله فيك تابعت معظم الشروحات لكن بدت لي عقيمة لذا حاولت عمله بال vcl واردت ترجمة نفس الكود ليقوم بنفس المهمة في انتظار احد الاخوة يترجم لنا الكود