Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Uwe Raabe,
25. Okt 2008
procedure Spielstein(Target: TStringgrid)
If
(Target.cells =IntToStr(1)) or (Target.Cells =IntToStr(2))
then
Target.cells:=IntToStr(Spieler)
Wo du nun noch die Werte für "y" und "Spieler" herbekommst, kann ich dir so noch nicht sagen - dafür war der Code-Ausschnitt zu kurz.
Das Ganze funktioniert sowies nur dann, wenn der Aufruf
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Uwe Raabe,
25. Okt 2008
Angenommen im Form1 soll beim Klick auf Button1 das StringGrid1 mit Daten gefüllt werden. Dazu gibt es irgendwo eine Prozedur, die ein TStringGrid mit Daten füllt und die hat diese Signatur:
procedure FillStringGrid(Target: TStringGrid);
Im Form haben wir dann die Methode
procedure TForm1.Button1Click(Sender: TObject);
begin
FillStringGrid(StringGrid1);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Uwe Raabe,
25. Okt 2008
"Daten in eine Spalte legen -> Programmcode soll im Up liegen"
heißt übersetzt
"Ich möchte in einem Unterprogramm Daten in eine Spalte eines TStringGrid schreiben"
Lösung 1:
Das Unterprogramm ist eine Methode des Forms in dem das Stringgrid liegt, dann kann es direkt angesprochen werden.
Lösung 2: