AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TMonthCalendar und Klick abfragen

Ein Thema von elduchte · begonnen am 16. Jan 2005 · letzter Beitrag vom 16. Jan 2005
Antwort Antwort
elduchte

Registriert seit: 21. Jun 2003
20 Beiträge
 
#1

TMonthCalendar und Klick abfragen

  Alt 16. Jan 2005, 19:08
Hi Leute,

ich benutze die Komponente TMonthCalendar und schreibe nach Klick auf ein Datum diesen Wert in eine Edit-Komponente. Hierzu bedien ich mich des OnKlick-Ereignisses. Danach klicke ich auf einen button, der dann eine Berechnung durchführt. Dieser Button darf aber nur "aktiv" sein, wenn das Datum ausgewählt wurde.

Mein Problem nun: Wie frage ich das OnCklick-Ereignis ab ob es stattgefunden hat oder nicht?

Irgendetwas mit True bzw False .....

Nur wie....

Vielen Dank für Eure Hilfe
Andi
  Mit Zitat antworten Zitat
Benutzerbild von eddy
eddy

Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#2

Re: TMonthCalendar und Klick abfragen

  Alt 16. Jan 2005, 19:24
Hallo elduchte,

Code:
procedure TForm.MonthCalendar1Click(Sender: TObject);
begin
  Edit1.Text := DateToStr(MonthCalendar1.Date);
  sbBerechne.Enabled := true;
end;
mfg
eddy
  Mit Zitat antworten Zitat
elduchte

Registriert seit: 21. Jun 2003
20 Beiträge
 
#3

Re: TMonthCalendar und Klick abfragen

  Alt 16. Jan 2005, 20:48
Hallo,

vielen Dank für die schnelle Antwort.

Hatte mich leider ein wenig falsch ausgedrückt:

Ich habe 2 MonthCalendar und wenn beide per Klick "genutzt" wurden, soll der Button aktiv sein.

Danke
Andreas
  Mit Zitat antworten Zitat
Äfan
(Gast)

n/a Beiträge
 
#4

Re: TMonthCalendar und Klick abfragen

  Alt 16. Jan 2005, 22:50
Hi,

Mach doch ganz einfach:

Delphi-Quellcode:
private
  Check1: boolean;
  Check2: boolean;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Check1 := False;
  Check2 := False;
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Check1 := True;
  If Check1 and Check2 = True then
   Button1.Enabled := True;
end;

procedure TForm1.MonthCalendar2Click(Sender: TObject);
begin
  Check2 := True;
  If Check1 and Check2 = True then
   Button1.Enabled := True;
end;
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 16:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz