Button.Click

[Matti4656]

Hallo und danke erst einmal für die Aufnahme in Eurem Forum.

Ich lese hier schon eine ganze Weile mit und habe mir auch schon einige nützliche Tipps ergattern können. Nun habe ich aktuell folgendes Problem.

Ich habe auf einer Form mithilfe von labels, panels und buttons eine Art Landkarte erstellt, auf der ca 150 labels verteilt liegen, denen ich später durch ein click-Event eine Funktion zuordnen möchte. Buttons gehen hier nicht da sie nicht die Eigenschaft Color haben.

Um dem Anwender zu zeigen auf welchem label er sich gerade befindet, weise ich dem label mit MouseEnter und MouseLeave verschiedene Eigenschaften zu. So sieht das im Moment für das Label btn100 aus.

Delphi-Quellcode:

procedure TfmHVMainForm.btn100MouseEnter(Sender: TObject);
begin
   TPanel(Sender).Color := clyellow;
   TPanel(Sender).Font.Color := clWindowText;
end;

procedure TfmHVMainForm.btn100MouseLeave(Sender: TObject);
begin
   TPanel(Sender).Color := clgreen;
   TPanel(Sender).Font.Color := clHighlightText;
end;

Meine Frage: Muss ich jetzt wirklich für jedes einzelne Label diese Events erzeugen oder geht das auch irgendwie kompakter?

Vielen Dank schonmal im vorraus

[Sherlock]

Ich weiss ja nicht wo das noch hinführt, aber Du solltest in Betracht ziehen dafür vielleicht eine eigene Komponente zu entwickeln.

Sherlock

[rapante]

Hallo und herzlich Willkommen.

Du kannst allen deinen Labeln die selbe Funktion zuweisen.

"btn100MouseEnter" in "btnMouseEnter" umbenennen und dann über den OI oder per Code zuweisen.

Edit:

ähm wenn du die Eigenschaften des Labels ändern möchtest, warum castest du dann nach TPanel????

Besser so:

Delphi-Quellcode:

procedure TfmHVMainForm.btnMouseEnter(Sender: TObject);
begin
  if Sender is TLabel then
  begin
    TLabel(Sender).Color := clyellow;
    ...
  end;
end;

[Matti4656]

eine eigene Komponente würde mich aber nicht davon befreien für jede dieser Komponenten ein eigenes Click-Ereignis zu erzeugen.....

vlt. mal etwas konkreter:

es handelt sich bei dem ganzen um eine Aufsicht auf einen Parkplatz mit vermieteten Plätzen. Jeder Platz ein Panel. Ist der Platz vermietet ist das Panel rot ansonsten grün.
Fahre ich mit der Maus über die einzelnen Panels zeigt mir der Hint das Kfz-Kennzeichen.
Klicke ich das Panel an öffnet sich die Kundenverwaltung....

[Matti4656]

Edit:

ähm wenn du die Eigenschaften des Labels ändern möchtest, warum castest du dann nach TPanel????


upps mein Fehler...natürlich möchte ich die Eigenschaft eines Panels ändern...

[Matti4656]

@rapante

und im Übrigen....DANKE...genau das war die Lösung.

Manchmal hat man einfach ein Brett vor dem Kopf

[Jumpy]

Wenn jeder Parklplatz eine eindeutige ID hat und die in der Eigenschaft TAG des Panels speicherst könnte man die folgenden Prozeduren (angelegt an rapantes Vorschlag) jedem Panel zuweisen.

Die könnte man im OnCreate des Formulars ggf. auch dynamisch machen, wenn du zu faul bist (ich wär's) das bei jedem Panel manuell einzustellen. Man müsste dann natürlich die Parkplatz-Panel von ggf. anderen Panels auf deinem Form unterscheiden (z.B. könnten alle anderen Panel Tag=0 haben).

Delphi-Quellcode:

procedure TfmHVMainForm.PanelMouseEnter(Sender: TObject);
begin
   TPanel(Sender).Color := clyellow;
   TPanel(Sender).Font.Color := clWindowText;
end;

procedure TfmHVMainForm.PanelMouseLeave(Sender: TObject);
var parkplatzID:integer;
begin
   parkplatzID:=TPanel(Sender).Tag  
   if IstVermietet(parkplatzID) then
     TPanel(Sender).Color := clgreen
   else
     TPanel(Sender).Color := clred;
   TPanel(Sender).Font.Color := clHighlightText;
end; 

procedure TfmHVMainForm.PanelClick(Sender: TObject);
var parkplatzID:integer;
    kundennummer:integer;
begin
   parkplatzID:=TPanel(Sender).Tag  
   if IstVermietet(parkplatzID) then
     begin
     kundenummer:=KundeAufParkplatz(parkplatzID);
     ÖffneKundenVerwaltungVonKunde(kundennummer) 
     end; 
end;

Edit: Wo war die rote Box?

[himitsu]

Zitat von Matti4656:

upps mein Fehler...natürlich möchte ich die Eigenschaft eines Panels ändern...

Panel ... Label ... Button ... langsam bin ich verwirrt.

Aber warum heißen die Panels dann btn (so wie "Button")?

Wenn du dir nicht sicher bist, dann verwende lieber Soft-Casts ala (Sender as TPanel) , dann fällt es wenigstens auf, wenn es doch falsch sein sollte.