Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
16. Aug 2008
Ich habs jetzt so gelöst:
procedure TSymboleForm.Image_DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
var
Bitmap_leer: Boolean;
begin
//
If Source is TImage then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
16. Aug 2008
procedure TSymboleForm.Image_DragDrop(Sender, Source: TObject; X, Y: Integer); wird aber erst ausgeführt, wenn ich das Bitmap auf dem anderen Image ablegen will.
Nur wie kann ich es schon früher abfangen ob das Bitmap leer ist, damit nicht einmal der Cursor anders angezeigt wird?
Ich dacht mir im MouseDown des Image prüfen ob es leer ist, und dann den DragMode umschalten
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
16. Aug 2008
und wo muss ich das einfügen damit dragdrop gar nicht erst ausgeführt wird?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Helmi,
16. Aug 2008
Hallo,
ich verwende folgenden Code um ein Bitmap von einem Image in ein anderes mittels DrapDrop zu verschieben:
procedure TSymboleForm.Image_DragDrop(Sender, Source: TObject; X,
Y: Integer);
var
S : String;
i : Integer;
Taste_Sender: String;
Taste_Source: String;