본문 바로가기

Application/Delphi Lecture126

이미지에 텍스트 배경 투명 처리 with Image1 do begin Canvas.Brush.Style := bsClear; Canvas.Font.Color := clWhite; Canvas.Font.Size:=12; Canvas.Font.Style :=[fsBold]; Canvas.TextOut(10, 10,'fdafstest'); end; // with 2008. 8. 13.
TEdit 정렬 변경하기 일단,에디트에는 다음과 같은 윈도우 스타일을 사용 할 수 있습니다. Windows.pas 유닛에 가보면 다음과 같이 스타일이 선언되어 있죠. { Control Manager Structures and Definitions } { Edit Control Styles } {$EXTERNALSYM ES_LEFT} ES_LEFT = 0; {$EXTERNALSYM ES_CENTER} ES_CENTER = 1; {$EXTERNALSYM ES_RIGHT} ES_RIGHT = 2; {$EXTERNALSYM ES_MULTILINE} ES_MULTILINE = 4; {$EXTERNALSYM ES_UPPERCASE} ES_UPPERCASE = 8; {$EXTERNALSYM ES_LOWERCASE} ES_LOWERCASE =.. 2008. 8. 13.
마우스 다운후 커서 변경하기.. 스크롤바 영역 밖으로 커서가 나갔을 경우에도 손모양 커서가 유지되어야 한다. 이런 경우에는 간단히 이렇게 할 수 있어요. procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssLeft in shift) and (Sender is TScrollBox) then begin Windows.SetCursor(Screen.Cursors[crHandPoint]); // 2008. 8. 13.
아웃룩으로 메일 보내자.. uses ComObj; procedure TForm1.Button16Click(Sender: TObject); const olMailItem = 0; olByValue = 1; var OutlookApp, MailItem, MyAttachments: OLEVariant; begin try OutlookApp := GetActiveOleObject('Outlook.Application'); except OutlookApp := CreateOleObject('Outlook.Application'); end; try MailItem := OutlookApp.CreateItem(olMailItem); MailItem.Recipients.Add('YourMailAddress@something.com'); Mail.. 2008. 8. 13.

티스토리툴바