Form designen

Gast Erhaltene Danke: 1

HiH

Da ich diese Designs die Windows den VCL-Komponeten gibt schon langweilig finde will ich meinem Programm ein eigenes geben.
(Aya hat für seine Programme die Kool-Components (www.koshigaya.de) geschrieben.) Meinem Menücreator hab ich zwar eins gegeben aber das besteht aus einzelen images auf dem Form. Ich will meine eigenen Style-Komponenten schreiben! Ich habe zwar schon einen Button und ein Edit hingekriegt aber mir fehlt immernoch das Form... Ich hab jetzt versucht ein Form zu machen. Dazu hab ich halt Self.Align:=alClient gemacht und die Images eingefügt nur steh ich jetzt vor einem Problem: Ich will die Property's von dem Form nicht selber ändern (Borderstyle), das soll die Komponente machen, nur weiß ich nicht wie ich das machen soll. Und wenn ich ein TMainmenü mache ist es über der von mir gemachten Titelbar, ich will es aber darunter.
Wie würdet ihr den so eine Form-Style-Komponente schreiben?

:wave:

, sCrAPt

Gast Erhaltene Danke: 1

für das menü hab ich keine idee, aber borderstyle müsste mit

markieren

Delphi-Quelltext

1:
2:

 if parent.ClassParent = tform then
  tform(parent).borderstyle := bsnone;

gehen.[/delphi]

Gast Erhaltene Danke: 1

Wenn ich jetzt meine Komponente einfüge sagt delphi "Zugriffsverletzung bei Adresse 038D1D4F in Modul "KreateComponents.bpl". Lesen von Adresse 00000000."

Gast Erhaltene Danke: 1

Ich hab das mit dem Borderstyle hingekriegt =) Habe aber noch ein Problem: Ich will mein Form ja auch verschieben können und dazu habe ich eigenlich immer folgenden Code benutzen können: (OnMouseDown)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

     if Button = mbLeft then
     begin
          ReleaseCapture;
          Perform(WM_SYSCOMMAND,$F012, 0);
     end;

Nur jetzt verschiebe ich nicht das Fenster (Form) sondern nur meine Komponente im Fenster (Form).... Wie kann ich das ändern?

Motzi · Verfasst: Mi 24.09.03 07:27

Wie hast dus denn gemacht? Eine Kompo programmiert die du auf die Form klatscht oder eine neue Form-Klasse? Ich verwend bei meinem X-Spy eine selbstgeschriebene Klasse TStyleForm (abgeleitet von TForm)... ich hab zwar nur die Farben der Titelleiste geändert, aber es geht noch wesentlich mehr! Ich werd die StyleForm in nächster Zeit auf meiner "Homepage" (www.x-spy.net/personal) noch veröffentlichen...

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

Gast Erhaltene Danke: 1

Eine Komponente die ich auf mein Form klatsche ;) Abgeleitet von TCustomControl.
Ich will meiner ganzen Komponente das onMouseDown-Ereigniss geben ;)

Gast Erhaltene Danke: 1

Als ich nachgedacht habe bin ich auf einen grandiosen doch simplen Einfall gekommen :D Ich habe die Lösung gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TKreateForm.drag(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with tform(parent) do
  begin
    if Button = mbLeft then
    begin
      ReleaseCapture;
      Perform(WM_SYSCOMMAND,$F012, 0);
     end;
   end;
end;

Es ist halt ein Nachteil dass man immer lange Nachdenken muss wenn man so intelegent ist wie ich :D

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme