Button Image bei Drag & Drop

[Sir Rufo]

Zitat von Smut:

Hi und danke für die Antwort...

Hier nur mal mein musikalischer Geburtstagsgruß:
http://www.youtube.com/watch?v=_2BqiipGKNA
Ich steh ja soooo auf Musik... wird Dir wohl nicht gefallen... na egal.

Da muss ich dich leider enttäuschen ...

Tubular Bells I, II, III, Orchestral, Millennium sowie die BBC Aufnahme der Tubular Bells I (Video) sind seit Urzeiten ein fester Bestandteil meiner Audiothek (neben Hergest Ridge, Amarok, etc.)

Zitat von Smut:

Zu den globalen Variablen: Angenommen, ich nehme EINE Globale Variable,nenne die z.B. MasterLang und bin so in der Lage, Datenbankeingaben mehrsprachig zu gestalten, was ist daran verkehrt?

Nimm einfach eine Funktion und du kannst den Zugriff darauf besser kontrollieren (threadsafe)

Also statt

Delphi-Quellcode:

interface

var
  MasterLang : string;

einfach

Delphi-Quellcode:

interface 

function MasterLang : string;

implementation

var
  _MasterLang : string;

function MasterLang : string;
begin
  if _MasterLang = '' then
    _MasterLang := GetMasterLang;
  Result := _MasterLang;
end;

Will ich das threadsafe haben, kein Problem, einfach eine TCriticalSection rein.

Will ich das aber auch noch speichern/laden, dann kommt das in eine Klasse (z.B. TApplicationLayer) und die Klasse speichert und lädt die Einstellungen.

Der Zugriff auf diese Klasse erfolgt analog über eine Funktion.

Wie schon gesagt, es ist eigentlich nur Faulheit - die sich meistens irgendwann rächt.
Ich bin lieber am Anfang rege und lege mich später entspannt zurück (z.B. ein kleines Notfallkassensystem mit automatischem Datenaustausch an eine WaWi läuft seit ca. 8 Jahren fehlerfrei in der Version 1.0.1 - ein Ausgabe-Fehler beim Nachbon - und häufiger im Einsatz als ursprünglich geplant - wir haben doch noch eine Kasse)

Schlimm ist erst mal nix, schlimm wird es aber auch schon von alleine und man muss es nicht schon vom Design an schlimm gestalten

[DeddyH]

Ich vermute, himitsu hat das hier gemeint:

Delphi-Quellcode:

procedure TFormTest.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if (ssLeft in Shift) and (Sender is TWinControl) then
    begin
      ReleaseCapture;
      TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    end;
end;