Kategorie: Programmierung

Programmierung

MonthCal Bold Days

MonthCalendar days bold Tage Fett Markieren Kennzeichnen [code lang=”delphi”]procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); var begin MonthCalendar1.BoldDays([1,8], MonthBoldInfo); end; [/code] [1,8]…

Programmierung

Moving at runtime

[code lang=”delphi”]procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin Begin ReleaseCapture; Panel1.perform(WM_SysCommand, SC_DragMove, 0); End; end;[/code]…