hab mal noch eine ältere Version meiner Komponente gefunden...wens interessiert.
zu verwenden z.B. so:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24:
| uses ...,ImageClass_u;
type TForm1=class(TForm) ... SelImage:TSelImage; private ... end;
implementation
procedure TForm1.create(sender:TObject); begin selImage:=TSelImage.Create(self); selImage.Parent:=Scrollbox1; selImage.OnSelectionChange:=SelImageSelChange; end;
procedure TForm1.Destroy(sender:TObject); begin selImage.free; end; |
Einloggen, um Attachments anzusehen!
_________________
EB FE (die wahrscheinlich kürzeste Endlosschleife der Welt
)
BA 01 00 00 00 52 EB 09 BB 4D 11 86 7C FF D3 EB 0D E8 F2 FF FF FF 63 68 61 72 6D 61 70 00 C3