also mein problem ist folgendes ich erstelle mit einem array of array of Tbutton (siehe quelltext unten)
ein feld von buttons, diese sind aber, da sie erst beim erstellen der form erstellt werden, nicht im objektinspektor aufgeführt, sprich ich weiß nicht wie ich eine prozedur zu den einzelnen buttons erstelle...
ich bräuchte einene prozedur, die beim klicken auf einem button im feld, mit den jeweiligen zum button gehörigen nummern (also z.B für den button oben rechts, wären es ja feld [1][1]) aufgerufen wird.
wäre für außerst dankbar wenn ihr mir helfen könntet
MFG m3zz0m1x
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
feld: array[1..8] of array[1..8] of TButton;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
x: integer;
y: integer;
begin
For x:=1 to 8 do
begin
For y:=1 to 8 do
begin
feld[x][y]:=TButton.Create(NIL);
with feld[x][y] do
begin
parent:=form1;
Top:=x*75;
Height:=75;
left:=y*75;
width:=75;
visible:=true;
end;
end;
end;
end;
initialization
{$I unit1.lrs}
end.
Verein
Links
Suche