Problem mit MonthCalendar

torsten_156

Hallo Leute,
ich verwende in meinem Tool ein MonthCalendar. Dieser hat ja das Ereignis OnClick. In dieses Ereignis schreibe ich jetzt meinen Code. So weit so gut...
Der Code soll aber nur ausgeführt werden, wenn der Anwender auf eine Zahl klickt und nicht wenn er mit den beiden Pfeiltasten oben den Monat ändert!!!

Kann da jemand helfen

Praetorianer_33

Hallo torsten

Ich habe mal schnell was geschriebn kannste dir hier runter ziehen ich denke mal damit ist dir geholfen .

MFG Praetorianer

Hier klicken http://www.server-all.de/ip/Kalender.rar

torsten_156

Hallo,
das sieht ja schon ganz gut aus. Aber ohne Code hilft es mir leider nicht

Gruß Torsten

Praetorianer_33

Hallo Torsten

Es ist alles im Paket enthalten das C++ builder 6 Projekt und alle cpp , h und res dateien müsstest eigentlich was anfangen können. Aber hier Trotzdem der Code;

Code für Form1 == Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
// Bei Klick anzeige in Statusbar
StatusBar1->SimpleText = "Heute ist der : " +MonthCalendar1->Date;
// Öffnen von Form 2
Form2->Show();
// Anzeigen Nochmals in Form 2 extra Fenster
Form2->Label2->Caption = Form1->MonthCalendar1->Date;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Button Klick schließt Programm
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
/7 Verschieben des Fensterrs in Style None ohne Rahmen bei Linksmausklick
  ReleaseCapture();
  SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
}
//---------------------------------------------------------------------------

Code Unit1.h

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Von der IDE verwaltete Komponenten
        TMonthCalendar *MonthCalendar1;
        TStatusBar *StatusBar1;
        TButton *Button1;
        void __fastcall MonthCalendar1Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
private:	// Anwender-Deklarationen
public:		// Anwender-Deklarationen
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Code Form2 == Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
// Buttonclick schließt Formular 2
Form2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
// Wie Form bei Mousklick Form 1
  ReleaseCapture();
  SendMessage(Form2->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
}
//---------------------------------------------------------------------------

Code Unit2.h

//---------------------------------------------------------------------------

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:	// Von der IDE verwaltete Komponenten
        TLabel *Label1;
        TLabel *Label2;
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
private:	// Anwender-Deklarationen
public:		// Anwender-Deklarationen
        __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

torsten_156

Hallo,
als ich mir den .rar-File runtergeladen habe und anschl. entpackt hab, konnte ich nur eine .exe finden.
Habe mir das Package nochmals runtergeladen und entpackt. Siehe da, alles vorhanden. Ich werde mich morgen mal damit befassen

DANKE für Deine Mühe...

Gruß Torsten