Kategorie: Knowledge

Delphi

VCL Fenster bewegen

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest) ; begin inherited; if Msg.Result = htClient then Msg.Result := htCaption; end; procedure TForm1.Panel1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ; begin ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;Continue reading

Delphi

Text mit StringList separieren

ts := TStringList.Create; ts.Delimiter := ‚~‘; ts.QuoteChar := ‚“‚; // Achtung ist standardmäßig („). Ein ungenutztes Zeichen verwenden wenn es Probleme gibt. ts.StrictDelimiter := true; ts.DelimitedText := ‚“Spalte 1″~“Spalte 2″~“Spalte 3″‚; for i := 0Continue reading

Delphi

Record mit generischer Liste

Uses Generics.Collections; Type TMyRecord = Record Fstring : String; Fint : Integer; End; Tmylist = Tlist; Var MyList : TMyList; MyRecord:TMyRecord; I: integer; Begin myList := TMyList.Create; MyRecord.fstring := ‚Test‘; MyRecord.Fint := 1234; MyList.Add(MyRecord); …Continue reading