AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

mehrere Button-Captions in Memo verschieben

Ein Thema von Hansa · begonnen am 29. Feb 2004 · letzter Beitrag vom 1. Mär 2004
 
Robert_G
(Gast)

n/a Beiträge
 
#7

Re: mehrere Button-Captions in Memo verschieben

  Alt 29. Feb 2004, 13:48
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...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz