Label no form
26/01/2006
0
Foxcyber
Posts
26/01/2006
Massuda
26/01/2006
Foxcyber
26/01/2006
Rômulo Barros
[b:689643f73a]Evento OnMouseDown do Label:[/b:689643f73a]
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If(shift = [ssLeft])Then Begin Label1.Font.Size := X; end; end;
Clique aqui para fazer login e interagir na Comunidade :)