mehrere Button-Captions in Memo verschieben

[Hansa]

Hi,

ich habe hier 10 Buttons. Je nachdem, welcher angeklickt wird, soll die entsprechende Caption in das Memo eingefügt werden, wobei es egal ist, von welchem Button das kommt. Mit 10 OnClick geht das auch, aber das ist es wohl nicht. Ich vermute, das geht in die Richtung FindComponent, is, as usw.

[Luckie]

Jupp. Und mittels der Tag Property kannst du den jeweiligen Button identifizieren und dann mit einer Case Abfrage bestimmen welcher es ist.

[Robert_G]

Und warum nicht einfach so:
(Im OnClick, das jedem Button zugewiesen wird)

Delphi-Quellcode:

  With Sender As TButton Do
  Begin
    If Memo1.Lines.IndexOf(Caption) = -1 Then
      Memo1.Lines.Add(Caption);
  End;

[Hansa]

nene, die Tags sind die wiklich absolut notwendige Notreserve. 8)

Zitat von Robert_G:

(Im OnClick, das jedem Button zugewiesen wird)

Genau das, jeder Button soll im OnClick sein Caption in das Memo schreiben. Dem Memo sollte es aber egal sein, von welchem der Buttons das stammt. Wie weise ich also jetzt allen Buttons dieselbe OnClick zu Ich will ja die 10 einzelnen ausschalten. Das müßte reichen, aber wo und wie einbauen ?

Delphi-Quellcode:

With Sender As TButton Do
   Memo1.Lines.Add(Caption);

[Robert_G]

Das hattest du doch schon mal mit Drag'nDrop in ListBoxes, oder?
Einfach Doppelklick auf einen deiner Buttons im Designer, Im Code-Editor mein Code-Schnipsel einfügen.
Diese Event-Prozedur kannst du jetzt im OI dem OnClick jedes Buttons zuweisen, der seine Caption ins Memo schreiben soll.
Wenn du jetzt [ButtonName]OnClick in meinetwegen btnCaptionOnKlick umbenennst (am Besten im OI), wirds übersichtlicher... 8)

Nachtrag:
Das ...
    If Memo1.Lines.IndexOf(Caption) = -1 Then ... sollte verhindern, dass es doppelte Einträge im Memo gibt...

[Hansa]

Hi,

gut für den Tip mit meinem anderen Thread. Das geht jetzt so weit. Übrig geblieben ist noch eine Frage: Wie geht das, wenn ich den OI nicht bemühen will, z.B. zur Laufzeit ? Und noch was: zwischenzeitlich ist das kein Button mehr, sondern ein Panel mit Label. Mit dem Label geht das jetzt, wie gewünscht. Wenn der User das aber nicht genau trifft, sondern das umrandende Panel, sollte trotzdem die Label.Caption in das Memo.

Die Frage wäre jetzt noch wie ich das erweitere, daß beim OnClick des Panels die Caption des daraufliegenden Labels zur Verfügung steht

[Robert_G]

Ungetested, nur schnell heruntergetippt.
(Ich bin eigentlich gerade am Rechnerschrauben )

Delphi-Quellcode:

Var
  TempCaption: String;
  i: Integer;
Begin

  If Sender Is TButton Then
    TempCaption := TButton(Sender).Caption;

  If Sender Is TLabel Then
    TempCaption := TLabel(Sender).Caption;

  If Sender Is TPanel Then
    With Sender As TPanel Do
      For i := 0 To pred(ControlCount) Do
        If Controls[i] Is TLabel Then
        Begin
          TempCaption := TLabel(Controls[i]).Caption;
          // Läßt du das "Break" weg, werden alle Labels in das Memo geschrieben. Mit "Break" nur das erste, dass gefunden wird. 
            (Falls die Caption nicht schon im Memo steht)
          Break;
        End;
  If (TempCaption <> '') And (Memo1.Lines.IndexOf(TempCaption) = -1) Then
    Memo1.Lines.Add(TempCaption);
End;

Edit: Tippfehler & Comment in der Schleife...

[Hansa]

ich habe das jetzt etwas umgebaut und es funktioniert auch wie gewünscht. Aber eine letzte Frage noch:

wozu die die for-Schleife ?

Delphi-Quellcode:

procedure TForm1.PanelClick(Sender: TObject);
var i : integer;
    TempCaption : string;
begin
  If Sender Is TLabel Then
    TempCaption := TLabel(Sender).Caption;
  If Sender Is TPanel Then
    With Sender As TPanel Do
      for i := 0 to pred(ControlCount) do
        If Controls[i] is TLabel then
          TempCaption := TLabel(Controls[i]).Caption;
  Memo1.Lines.Add (TempCaption);
end;

Statt des i bräuchte ich eigentlich nur den aktuellen Wert der Caption des Labels, das auf dem Panel liegt. Bzw., was macht das ControlCount genau ?

[fkerber]

Hi!

Zitat von OH:

Die Eigenschaft ControlCount gibt die Anzahl der untergeordneten Steuerelemente zurück.

Es zählt also, wie viele Controls auf dem Panel liegen.

Ciao fkerber

[Robert_G]

Wenn du die Caption eines Panels willst auf dem kein Label liegt, dann:

Delphi-Quellcode:

  ...
  If Sender Is TPanel Then 
    With Sender As TPanel Do 
    Begin
      for i := 0 to pred(ControlCount) do 
        If Controls[i] is TLabel then 
          TempCaption := TLabel(Controls[i]).Caption; 
      If TempCation = '' Then
        TemCaption := Caption;  
    End;
  ...

p.s.: Wie kann man so lange mit Delphi arbeiten ohne Controls/ControlCount zu kennen
Ich bin erst vor ca. 1 Jahr zu Delphi gekommen