StringGrid und Button Funktion

[Alterauge]

Hallo,
habe mir was überlegt:

Wenn Ich Button1 drücke, soll eine Information ins Stringgrid geschrieben werden (Wert15).

Jetzt steht der Wert 15 im Stringgrid!
Button 2 soll Werte im StrinGrid lesen, bei Wert 15 soll Button 2 blinken.

Geht sowas?

[Luckie]

Zitat von Alterauge:

Geht sowas?

Ja. Obwohl eine Schaltfläche blinken lassen, könnte etwas umständlich werden, je nach dem was du dir unter blinken vorstellst.

[DeddyH]

Ja.

[Alterauge]

Hey,

das Blinken ist kein Problem!

Das der Button1 sein Befehl (15) in ein StringGrid schreibt, ist auch kein Problem.

Mein Problem ist, Button2!
Im StringGrid (Zeile1) lesen, bei Wert 15 ....... und bei Wert 0 nix machen.

[DeddyH]

Wo genau ist denn das Problem?

Delphi-Quellcode:

if StringGrid.Cells[Spalte, Zeile] = '15' then
  Blinken;

Oder was meinst Du?

[Alterauge]

Delphi-Quellcode:

 if FormReporting.Report.Rows[1][5]= '1' then begin
  FormMAin.AdvGlowButton9.Caption:='test';

Frage: Immer die letzt Zeile lesen (-1)?

 if FormReporting.Report.Rows[-1][5]=

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.RowCount-1;
   if FormReporting.Report.Rows[i][5]= '2' then begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
end;

Habe es so versucht! Geht nicht ???
Was ist falsch hier?

[Alterauge]

Hat da einer eine Idee?

Was ich hier falsch mache?

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.Timer1Timer(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;

So geht es auch nicht? Verstehe ich nicht???

[DeddyH]

Könntest Du bitte das Pushen unterlassen? Und bist Du sicher, dass Deine verwendeten Indizes auch richtig sind?